FUNCTION fine_fun(stealin) RESULT(fineout)
  USE Commonvars

  IMPLICIT NONE
  INCLUDE 'mpif.h'

  REAL(8), INTENT(IN) :: stealin
  REAL(8)             :: fineout

  fineout = stealin + frac_fine_g*fine_coeff*stealin

!!$  IF (flag_here == 246) write(*,'(a,5f20.15)') 'fineout', fineout, stealin, frac_fine_g, fine_coeff, frac_fine_g*fine_coeff*stealin

END FUNCTION fine_fun
